home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / dev / basic / ace_final.lha / ACE_GPL_Release / prgs / hi.b < prev    next >
Encoding:
Text File  |  1996-08-29  |  396 b   |  30 lines
  1. defint a-z
  2.  
  3. screen 1,320,200,3,1
  4.  
  5. palette 0,0,0,0
  6. palette 1,0,0,1
  7. palette 2,0,1,0
  8. palette 3,0,1,1
  9. palette 4,1,0,0
  10. palette 5,1,0,1
  11. palette 6,1,1,0
  12. palette 7,1,1,1
  13.  
  14. window 1,"Hello World!  <press 'q' key to quit>",(0,0)-(320,200),32,1
  15.  
  16. while inkey$<>"q"
  17.  x=rnd*80
  18.  y=rnd*25
  19.  repeat 
  20.   f=rnd*7+1
  21.   b=rnd*8
  22.  until f <> b
  23.  color f,b
  24.  locate y,x
  25.  print "Hi There!";
  26. wend
  27.  
  28. window close 1
  29. screen close 1
  30.